From b553cffa92d236b75bbc08b6c268758138a6f268 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 1 Jun 1993 20:31:47 +0000 Subject: [PATCH] (undo): Pass proper arg to delete-auto-save-file-if-necessary. --- lisp/simple.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 72bca14e651..a2b900d5b5a 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -597,7 +597,8 @@ Get previous element of history which is a completion of minibuffer contents." Repeat this command to undo more changes. A numeric argument serves as a repeat count." (interactive "*p") - (let ((modified (buffer-modified-p))) + (let ((modified (buffer-modified-p)) + (recent-save (recent-auto-save-p))) (or (eq (selected-window) (minibuffer-window)) (message "Undo!")) (or (eq last-command 'undo) @@ -606,7 +607,7 @@ A numeric argument serves as a repeat count." (setq this-command 'undo) (undo-more (or arg 1)) (and modified (not (buffer-modified-p)) - (delete-auto-save-file-if-necessary)))) + (delete-auto-save-file-if-necessary recent-save)))) (defvar pending-undo-list nil "Within a run of consecutive undo commands, list remaining to be undone.") -- 2.30.2